home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V2D1.D64 / windows 64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  891 b   |  30 lines
  1. 10 REM*****************************
  2. 20 REM
  3. 30 REM    WINDOWS 64 DEMO
  4. 40 REM
  5. 50 REM*****************************
  6. 60 REM
  7. 90 POKE 53281,6
  8. 100 PRINT "[147]":PRINT
  9. 110 PRINT "    WINDOWS 64 DEMO"
  10. 120 PRINT:PRINT "    TO RUN THIS DEMO, YOU MUST FIRST"
  11. 130 PRINT:PRINT "     ENTER THE FOLLOWING COMMANDS:"
  12. 140 PRINT "[144]":PRINT "LOAD 'WINDOW1',8,1    (COMPILER CORE)"
  13. 150 PRINT:PRINT "[144]SYS 64738             (RESET)"
  14. 160 PRINT:PRINT "[144]LOAD 'WINDOW2',8,1    (WINDOW ROUTINE)"
  15. 170 PRINT:PRINT "[144]POKE 44,32:POKE 8192,0(RAISE BASIC)"
  16. 180 PRINT:PRINT "[144]LOAD 'WINDOWS 64',8   (DEMO)"
  17. 185 PRINT:PRINT "[144]RUN"
  18. 190 PRINT:PRINT "DO YOU WISH TO PROCEED WITH DEMO?"
  19. 195 GET A$:IF A$=""THEN 195
  20. 197 IF A$<>"Y" THEN END
  21. 200 PRINT "[147]":POKE 12500,10
  22. 210 POKE 12501,6
  23. 220 POKE 12502,10
  24. 230 POKE 12503,5
  25. 240 POKE 12504,ASC("H")
  26. 250 POKE 12505,ASC("I")
  27. 260 POKE 12506,ASC("!")
  28. 270 POKE 12507,95
  29. 280 SYS 2117:END
  30.